home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW Related / DTS MPW Goodies / SetProject < prev    next >
Encoding:
Text File  |  1990-09-14  |  437 b   |  20 lines  |  [TEXT/MPS ]
  1. #
  2. # SetProject        Andrew Shebanow        3/14/89
  3. #
  4. #    Script to set current project.
  5. #
  6. #    Usage: SetProject ProjName
  7. #
  8.  
  9. Project "{ProjName}"
  10.  
  11. # Extract the CheckOutDir and change directory to it
  12. Set ChkOutDir "`CheckOutDir`"
  13. ( Evaluate "{ChkOutDir}" =~ /(∂')*CheckOutDir -project ≈∂∫(∂')* (∂')*(≈:)®1(∂')*/ ) ∑ Dev:Null
  14. Directory "{®1}"
  15.  
  16. # Execute project init script if present
  17. If "`Exists ProjInit`" != ""
  18.     Execute ProjInit ∑∑ "{WorkSheet}"
  19. End
  20.